home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
- Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
- Begin VB.Form frmSynchMain
- Caption = "DB Syncronizer"
- ClientHeight = 7725
- ClientLeft = 585
- ClientTop = 765
- ClientWidth = 10575
- Icon = "frmSynchMain.frx":0000
- LinkTopic = "Form1"
- ScaleHeight = 7725
- ScaleWidth = 10575
- Begin VB.CommandButton cmdAllDiffs
- Caption = "&Both Diffs"
- Height = 495
- Left = 5520
- TabIndex = 32
- Top = 7200
- Width = 735
- End
- Begin VB.CommandButton cmdTableDiffs
- Caption = "&Table Diffs"
- Height = 495
- Left = 4680
- TabIndex = 31
- Top = 7200
- Width = 735
- End
- Begin VB.ComboBox cboTableFields
- Height = 315
- Left = 2880
- TabIndex = 30
- Top = 7320
- Width = 1695
- End
- Begin VB.CommandButton cmdPrint
- Caption = "&Print Grid"
- Enabled = 0 'False
- Height = 495
- Left = 7080
- TabIndex = 27
- Top = 7200
- Width = 855
- End
- Begin MSComDlg.CommonDialog DLG
- Left = 6360
- Top = 7200
- _ExtentX = 847
- _ExtentY = 847
- _Version = 393216
- End
- Begin VB.ComboBox cboDBObject
- Height = 315
- Left = 120
- TabIndex = 26
- Top = 7320
- Width = 1815
- End
- Begin VB.CommandButton cmdFix
- Caption = "&Fix"
- Height = 495
- Left = 8760
- TabIndex = 25
- Top = 7200
- Width = 495
- End
- Begin VB.CommandButton cmdGetDiffs
- Caption = "&Object Diffs"
- Height = 495
- Left = 2040
- TabIndex = 22
- Top = 7200
- Width = 735
- End
- Begin VB.CommandButton cmdScript
- Caption = "S&cript"
- Height = 495
- Left = 8040
- TabIndex = 21
- Top = 7200
- Width = 615
- End
- Begin VB.Frame fraSlave
- Caption = "Slave"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 12
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 1695
- Left = 5280
- TabIndex = 14
- Top = 120
- Width = 5175
- Begin VB.CommandButton cmdSConnect
- Caption = "Connect/Retrieve Databases"
- Height = 375
- Left = 2640
- TabIndex = 16
- Top = 720
- Width = 2295
- End
- Begin VB.TextBox txtSUserID
- Height = 285
- Left = 960
- TabIndex = 3
- Top = 480
- Width = 1335
- End
- Begin VB.TextBox txtSPassword
- Height = 285
- IMEMode = 3 'DISABLE
- Left = 960
- PasswordChar = "*"
- TabIndex = 4
- Top = 840
- Width = 1335
- End
- Begin VB.ComboBox cboSDatabase
- Height = 315
- Left = 3480
- TabIndex = 15
- Top = 1200
- Width = 1455
- End
- Begin VB.TextBox txtSServer
- Height = 285
- Left = 960
- TabIndex = 5
- Top = 1200
- Width = 1335
- End
- Begin VB.Label Label8
- Caption = "User ID:"
- Height = 255
- Left = 120
- TabIndex = 20
- Top = 480
- Width = 1335
- End
- Begin VB.Label Label7
- Caption = "Password:"
- Height = 375
- Left = 120
- TabIndex = 19
- Top = 840
- Width = 1095
- End
- Begin VB.Label Label6
- Caption = "Server:"
- Height = 255
- Left = 120
- TabIndex = 18
- Top = 1200
- Width = 1335
- End
- Begin VB.Label Label5
- Caption = "Database:"
- Height = 375
- Left = 2640
- TabIndex = 17
- Top = 1200
- Width = 975
- End
- End
- Begin VB.CommandButton cmdExit
- Caption = "E&xit"
- Height = 495
- Left = 9840
- TabIndex = 13
- Top = 7200
- Width = 615
- End
- Begin VB.Frame fraMaster
- Caption = "Master"
- BeginProperty Font
- Name = "MS Sans Serif"
- Size = 12
- Charset = 0
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 1695
- Left = 120
- TabIndex = 6
- Top = 120
- Width = 5175
- Begin VB.VScrollBar VScroll1
- Height = 30
- Left = 4680
- TabIndex = 23
- Top = 4440
- Width = 135
- End
- Begin VB.TextBox txtMServer
- Height = 285
- Left = 960
- TabIndex = 2
- Top = 1200
- Width = 1335
- End
- Begin VB.ComboBox cboMDatabase
- Height = 315
- Left = 3480
- TabIndex = 12
- Top = 1200
- Width = 1455
- End
- Begin VB.TextBox txtMPassword
- Height = 285
- IMEMode = 3 'DISABLE
- Left = 960
- PasswordChar = "*"
- TabIndex = 1
- Top = 840
- Width = 1335
- End
- Begin VB.TextBox txtMUserID
- Height = 285
- Left = 960
- TabIndex = 0
- Top = 480
- Width = 1335
- End
- Begin VB.CommandButton cmdMConnect
- Caption = "Connect/Retrieve Databases"
- Height = 375
- Left = 2640
- TabIndex = 10
- Top = 720
- Width = 2295
- End
- Begin VB.Label Label4
- Caption = "Database:"
- Height = 375
- Left = 2640
- TabIndex = 11
- Top = 1200
- Width = 975
- End
- Begin VB.Label Label3
- Caption = "Server:"
- Height = 255
- Left = 120
- TabIndex = 9
- Top = 1200
- Width = 1335
- End
- Begin VB.Label Label2
- Caption = "Password:"
- Height = 375
- Left = 120
- TabIndex = 8
- Top = 840
- Width = 1095
- End
- Begin VB.Label Label1
- Caption = "User ID:"
- Height = 255
- Left = 120
- TabIndex = 7
- Top = 480
- Width = 1335
- End
- End
- Begin MSHierarchicalFlexGridLib.MSHFlexGrid flxDiff
- Height = 5055
- Left = 120
- TabIndex = 24
- Top = 1920
- Width = 10335
- _ExtentX = 18230
- _ExtentY = 8916
- _Version = 393216
- FocusRect = 2
- AllowUserResizing= 1
- RowSizingMode = 1
- _NumberOfBands = 1
- _Band(0).Cols = 2
- End
- Begin VB.Label Label10
- Caption = "Table/Fields"
- Height = 255
- Left = 2880
- TabIndex = 29
- Top = 7080
- Width = 1455
- End
- Begin VB.Label Label9
- Caption = "Database Objects"
- Height = 255
- Left = 120
- TabIndex = 28
- Top = 7080
- Width = 1935
- End
- Begin VB.Menu mnuExit
- Caption = "E&xit"
- End
- Begin VB.Menu mnuSettings
- Caption = "&Settings"
- Begin VB.Menu mnuIgnoreSysObjects
- Caption = "Ignore &System Objects"
- Checked = -1 'True
- End
- Begin VB.Menu mnuIgnore_Indexes
- Caption = "Ignore &Indexes Beginning With Underscore"
- Checked = -1 'True
- End
- Begin VB.Menu mnuUseBCP
- Caption = "Use BCP To Transfer Data"
- End
- End
- Attribute VB_Name = "frmSynchMain"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Public oDBSynch As clsDBSynch
- Public rsList As ADODB.Recordset
- Public bProcDBObjects As Boolean
- Public bProcAll As Boolean
- Private Sub cboMDatabase_LostFocus()
- If Trim(cboMDatabase.Text) <> "" Then
- oDBSynch.sMDBName = cboMDatabase.Text
- If Not oDBSynch.SetMasterDatabase() Then
- MsgBox oDBSynch.ReturnStatus, vbOKOnly, "Error Setting Database"
- End If
- End If
- End Sub
- Private Sub cboSDatabase_LostFocus()
- If Trim(cboSDatabase.Text) <> "" Then
- oDBSynch.sSDBName = cboSDatabase.Text
- If Not oDBSynch.SetSlaveDatabase() Then
- MsgBox oDBSynch.ReturnStatus, vbOKOnly, "Error Setting Database"
- End If
- End If
- End Sub
- Private Sub cmdAllDiffs_Click()
- If Not CheckAndResetDB Then
- Exit Sub
- End If
- Set rsList = New ADODB.Recordset
- If Not oDBSynch.GetDBObjectDiffInfo(CInt(cboDBObject.ItemData(cboDBObject.ListIndex)), rsList) Then
- frmSynchMain.MousePointer = vbDefault
- MsgBox oDBSynch.ReturnStatus, vbOKOnly, "Error Getting Differences "
- End If
- If Not oDBSynch.GetTableFieldDiffInfo(CInt(cboTableFields.ItemData(cboTableFields.ListIndex)), rsList) Then
- frmSynchMain.MousePointer = vbDefault
- MsgBox oDBSynch.ReturnStatus, vbOKOnly, "Error Getting Differences "
- Exit Sub
- End If
- Set flxDiff.DataSource = rsList
- If (cboDBObject.Text = "Table/Fields") Or _
- (cboDBObject.Text = "All") Then
- SetGridProperties True
- SetGridProperties False
- End If
- flxDiff.Refresh
- frmSynchMain.MousePointer = vbDefault
- Width = 10 ea0o2g
- 1Rir "MS Sans Serif"Table/Fields") Or declaredId IH "
- Exit Sub
- End If
- End I6b
- End If
- SIollxDiff.Refresh
- frmSynchMain. = vSf
- frmmmmFin.MousePointer = vbDefault
- tributtF "Error Getting Differences "
- oAo3chMain. End
- End
- Attrie xt = VMIb
- Attrie xt = VMIb
- Attr TabIndex >s3e/Fields") Or tIb
- Attr TabISub
- Ent If
- SIollxDiff.Refresh
- frmSynchMain. = vSf
- frmmmmFin.MousePMain. . = vSf
- frmmmmFiPMain. . =Bl =Bl =Blain. . = vSf
- frmmmmFiPMain. .ff
- Height o Underline = 0 '3G
- Sub
- Ent ea0o2g
- neX1 Height = 285
- Left = 960
- Ent ea0o2g
- neX1 Height = 285
- Left = 960
- Ent ea0o2g
- neabel4
- ource =oabel4 1200
- o
- frmmmmFiPMain. . =Bl =Be
- Height = 285
- goeight =sldoThein VB.MenuS.er"
- BeginProperty Font
- Name = "MS) <,eabel4tharsef
- S idt Then
- SetleFieldDiffIft Taba 9usie h Left ain. .ff
- Height o Underline = 0 '3G
- Sub
- Ent ea0o2g
- neX1 Height = 285
- Left = i 285
- ne = 51b6o
- I Size
- n = 5 xDatabase Objects"
- Heigh Width ht = 285
- S0dth ht = 285
- xIOLef175
- Begin VB.CommandButton cmdme BfcC ab
- Ent ea0o2g
- neX1 Height he h BfcC l B
- Attrie xt = VMIb
- Attrie xt = VMIb
- Attrie xt = VMIb
- Attrie xt = TBegSHFlexGrid 8esSxRefresh
- frmSynchMain. = vSf
- frmmmmFin.MousePMain. . = vSf
- frmub Height he h BfcC im(cboSDatabase."h BfcCnd
- s"
- CamFiPMain. . =Bl =cd latus, vb oSDatabase.uAshMain. = vSf
- frmmmmFin.MousePMain. . = vSf
- frmub Height St = DxAttrieFf
- ferlCt yenu mnuExit
- Caption s"
- o0emnuExit
- BfcCo Left = Height mmmFin.MousC 5
- Le
- mDa6o0 cm7c1p 5
- cbop)o vSf
- frmmmmFVB_p 5
- 7c1p 5
- c= vSf
- frmub Ca 1FIf
- SIollxe1Bt StProperty Fesne(cn8o6 Fesn0emnuExit
- BfcCo L3o
- Height egSHFEMo Left x = rmuePMain. . = vSf
- frmub Height St = DxAttri3M0o DiffIn6iPMain. . =B Top St
- Attrie xt = VMIb
- Attrie xt NF = 375
- Left 21xxEht St = DxAttri3M0o DiffIn6" BfcC ab
- EnI e1lllll2"n. INsePoiersS9b1v2e1lllll2"do = HeiILostFocus(HeiRSyns Left 6S2e1lllll2"do = HeiILostFocus(S. St
- Attrie ef79_t = DxAtti 79_t = p GSS CaptionL CaptiS CFoc0.t BO-a#ain. = = Height mmmFin.MousC 5
- Le
- mDa6o0 cm7c1p 5
- c = VMIb
- Attrie xt = VMIb
- Attr TabIndex >s3e/Fields") Or tIt = DxAt"s3e/Fields") Or tIn2e = cboSData0oM eILostFocR)o v"os, vbOKOn4
- CaoLoste5oSData0uExit
- xbOKOn4
- Ca7 VMIb
- Attr aXe = cboSt = VMIb
- Att( T Checked = -1 'True
- End
- Begin VB.Menu mnIn2eSnd
- 2h
- rtr A 21xxEht St = DxAttri3M0o If Not rrorae ie x -1 =B End St = DxAttri3M0o If Not rrorae ie x -1 =B Endid 8
- SmmmmFin.ir, TnAttrie xt = VMIb
- Attrie xt NF = DxAttri3M0o If Not rrorae ie x -1 =B Endid 8
- SmmmmFin.ir, TnAttrie xt = VMIb
- Attrie xt NF = DxAttri3M0o If Not rrorae ie x -1 =B E0ht he h BfcC l B
- Endlllllllllll7b csih B
- En l B
- Endlllllllllll7bM0o Disih Not rrorae ie x rtr sh8rae ie x -1 =B Endid 8Da6o0 cm7c1p 5
- cbop) rrorae iI0 rrorae Ce2 e6 End iI0 rroraSt = DxAt4S NotWot rri CFoc0.t BO-a#ain. = =
- cbop) rrorae iI0 rrorae ot rrorae ie x -1 =B Endid 8
- Smmmm21 =B i7"
- Heighse id 8I -1 =B EB Endidxx -1v id 8I -1 =B EB Endidxx -1v id 8I -1 =B EB Endidxx -1v id 8I -1 =B EB Endidxx -1v id 8I -1 =B EB Endidxx -1v id 8I -1 =B EB Endidxx -1v id 8I -1 =B EB Endidxx -1v id 8I -1 =B EB Endidxx -1v id 8.eSn-1v 6"9)vbOKOnly, "Error = VMIvbO0e ieih Not rrorae ie xuB oe x -1 =B Endid 8
- Smmmm21 =B oe x -1 =B &"Error = VMIvbO0e ieih 960
- tEix -1v ae"d =B Endid 8
- Smmmm21 =B ib1v2e1lllEkxror = V1a21 =B i' vSf
- frmmmmFin.MousePMain. . = vSf
- frmmmmFiPMain. . =Bl =Bl =B = 1_eVMIvbO0e ieih eSIvbO0e ieih O0e ieih eSe0 oe x -1 =B &"Error tPm21n(vbO0e iexo&"Ein. . o61n(vbO0eCBl = VB.Label La
- frNB C7_ VB.Label La
- L =B &"Error = VMIetcEix -1v ae"d =BU = sih Not r2 1455
- e ieih O0e ieih eSe.oe x -pi3 Ylo0t .oCeoSk
- L =B &"Error = VMIetcEix -1v ae"d =BU = sih Not r2 1455
- e ieih O0e ieih eSe.oe x -pi3 Ylo0t NB8 -1etc =BU = siheeit269t = 120
- Tadaxn3bO0e i Le
- Sub
- End If
- Set flxD oe x x3i sih*ret flxD oe x x3i sih*ret flxD oe x0E*ret = 891
- If Not oDB o0emnuExit
- BfcCo Left 51b6o
- I Size etcEix ocCo=nd If
- Ylo0t .oCeoSk
- L =B &
- h*ret flx 7rrCe2tc =Ft rrorae ie x -1 =B Endid 8
- Sm Endid 8
- Smmmm21 =B i7"
- Heighse id Not rrorae iBAbAB C7_ VB.Label La
- L =B B C7_ VB.Label Lah EnoDBVe
- SetGridProperties2Rt'NF = DxAtt. . es2Rt'NF = DxAtt. . es2Rt'NF = DSSS0o0 oe x -1 =M 2e61F7 Be5F)Cea1 TnxD oe x x3i sih*ret flxD =8cmmm21 =B i7"
- Heighse id 8I -1 =B EB Endidxx -1v id 8I -1 =B EB Endidxx
- If N C7_ VB Name
- e ielo0t .oCekea1 TnxD olsih*ret flxD oe x x3i sih*8x x3i 0nnu a8c DDDDDDDDDDDDDDo = sih -oT Heigr = VMIetcEix -1v ae"d =BU = sih Not r2 14 Endidxx
- If N C7_ VB Name
- e ielo0t .oCekea1 TnxD olsih*ret flxD oe x x3i el Lah MSHFlexGrid flxDiff
- & e ielo01oG AAtt. . ie D o
- RT 'TrueCXGF
- Sp2*ret flxD oe x x3i s mRRRRRRRRR
- F = DxAtt9/f e"mD olsih*ret flxD oe x xsnd If iellxD oe x xsnd IfE St RRRRRRR
- F = DxAtt9/f e"mD olsoe6oyd IfE St RRRRRRR
- F =oSk
- L =B &
- h*ret flx 7rrCe2tc =Ft rrorae =B oe x t No 'False
- =SD"7=ked = -1 'Truee Not h3"mD ol olsitB DAo -1 'Tru =B ib1v2e1lllEkxror = V1a21 =B i' vSf
- frmmmmFin.MousePMain. . = vSf
- frmmmmFiPMain. . =Bl =Bl =B = ae ie x 51b6o
- at RRRRRRR
- Ft ie x 51b6o
- at RRRRRRR
- Ft ie x 51b6o
- at RRRRRRR
- Ft ie x 5lllllllll oe x xsnd If iellxD oe oe x xsnd If iellxD oe EF V1on2e1b6o
- at RRR =Bl =Bl =B = ae ie x 51b6o
- at RRRRRRR
- Ft ie x 51b6o
- at RRRRRRR
- Ft ie x 51b6o
- at RRRRRRR
- Ft ie x 5lllllllll oe x xsnd If iellxD oe 7=ked e HeiRSyns Left 6S2e1lllll2"do .oD
- ns 1di ieuE.MousePMain 8
- eSe.oe x -pi3 Ylo0t .oCeoSk
- L =B &"Error 0iDDDo = sih -oT Heigr = VMIetcEixRRRRR
- Ft ie x 51b6o
- a -t RRRRRRR
- Ft ie x 5lllllllll _2h Alllllll _2h Alllllll _2h AllbmSain. . =Bl =Bl =ifrorae Ce2 e2at RRRRRRR
- Ft ie x 51b6o
- at RRRRRRR
- F- i7"
- D= 120
- ns 1di ieuE.MousePMaU = sih Not r2 14 EnDi1om4t ie x 5lll EB EPMain 8
- eSe.oe x -pi3 Ylo0t .oCeoSk
- L =B &"Error 0i7i7i7i7i7i7i7i7i7i7i7i7i7i7i7i74 5llllVMIetcEixRRRRR
- Ft ie x 51b6o
- a -t RRRRRRR
- Ft ie x 5lllllllll _2h Alllllll _2h Alllllll _2h AllbmSain. . =Bl =Bl =ifrorae Ce2 e2at RRRRRRR
- Ft ie x 51b6o
- at RRRRRRR
- F- i7"
- Ga RRRi7i7i74t i3line VMIetcEixRRRRR
- Ft ie x 51bSD= M"Erroo 6o
- at RRRRRRR
- Ft ie x 5llllll640
- TabIndex 4 x3i sih*8x fmro1rIndex S_")x4"x 4 x3i )Index =x 5lll EB EPMain 8
- eSe.oe x -pi3 Ylo0t .oCeoSk
- L )h BfcuflxDiff.Refresh
- frmSynchMain.eoSk
- L )h BBBB" 8I 0Hff.Refresh
- frmSynchMain.eoSk
- L )hRRRRRR
- F- i7"
- aioBfcuflxDiff -oT Heigr x f
-